home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / d_d / stanford / charshts / seabrook / macros / spells < prev    next >
Encoding:
Text File  |  1993-06-22  |  1.4 KB  |  49 lines
  1. #    charsheet:spells    1.5
  2. #
  3. #    Copyright 1991, Chris Seabrook
  4. #
  5. #    This work may be freely used. modified and distributed for non-commercial
  6. #    purposes so long as it retains this notice.
  7. #
  8. # spells(level, number)
  9. .PS
  10. define spell X
  11.     if nspells>0 then Y
  12.         nspells=nspells-1
  13.         [
  14.             box wid sheetwid/2 ht boxht/2 "$1"
  15.             box wid sheetwid/10 ht boxht/2 "$2"
  16.             box wid sheetwid/10 ht boxht/2 "$3"
  17.             box wid sheetwid/10 ht boxht/2 "$4"
  18.             box wid sheetwid/10 ht boxht/2 "$5"
  19.             box wid sheetwid/10 ht boxht/2 "$6"
  20.         ] with .sw at Nspells.sw + (0, nspells*boxht/2)
  21.     Y
  22. X
  23. define spells X
  24.     nspells=$2
  25.     Nspells: [
  26.     box invis wid 3*sheetwid/10 "\f(HB\s+2$1 Level Spells\s0\fP"
  27.     box invis wid sheetwid/10
  28.     box invis wid sheetwid/10 ht boxht/2 with .nw at last box.ne "\f(HBSpell Points\fP"
  29.     box wid sheetwid/10 ht boxht/2 with .nw at last box.sw
  30.     plot (3*$1)+1 at last box
  31.     box invis wid sheetwid/10 "\f(HBCasting" "Time\fP" with .nw at 2nd last box.ne
  32.     box invis wid sheetwid/10 "\f(HBDuration\fP"
  33.     box invis wid sheetwid/10 "\f(HBArea of" "Effect\fP"
  34.     box invis wid sheetwid/10 "\f(HBRange\fP"
  35.     box invis wid sheetwid/10 "\f(HBMemorised\fP"
  36.     for scount=1 to $2 by 1 do Y
  37.         box wid sheetwid/2 ht boxht/2 with .nw at 9th last box.sw
  38.         for sscount=1 to 5 do Z
  39.             box wid sheetwid/10 ht boxht/2
  40.         Z
  41.         for sscount=1 to 3 do Z
  42.             box invis wid sheetwid/10 ht boxht/2 at last box
  43.         Z
  44.     Y
  45.     ] with .n at last box.s + 0,-1*border
  46.     box ht last [].ht+border wid last [].wid+border at last []
  47. X
  48. .PE
  49.